home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Reason_4_Treason_3_1990_Ikon_Visual.d64 / girl simul8r_ikv (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  6KB  |  268 lines
  1. 1 rem ""(NULL)
  2. 2 poke808,234
  3. 3 fi$="jj":ad=16384:gosub 50000
  4. 4 fi$="kk":ad=57344:gosub 50000
  5. 5 fi$="ll":ad=24576:gosub 50000
  6. 6 sys 16384
  7. 90 poke51,0:poke52,64:clr
  8. 91 print"[147]"
  9. 98 rem ""(NULL)
  10. 99 rem ------------------------------
  11. 100 print"hi, my name is sally"
  12. 101 let b=0
  13. 102 print"what's yours......stud":inputb$
  14. 103 print"well ";b$;",you know what i like! "
  15. 104 inputa$
  16. 105 letb=b+1
  17. 108 goto600:rem help check counter
  18. 110 ifa$="kiss"thengoto200
  19. 114 ifa$="pash"thengoto200
  20. 116 ifa$="get on"thengoto200
  21. 118 ifa$="suck face"thengoto200
  22. 119 ifa$="smooch"thengoto200
  23. 120 ifa$="smootch"thengoto200
  24. 121 ifa$="touch"thengoto300
  25. 125 ifa$="feel"thengoto300
  26. 126 ifa$="finger"thengoto300
  27. 127 ifa$="rub"thengoto300
  28. 128 ifa$="massage"thengoto300
  29. 129 ifa$="fondle"thengoto300
  30. 130 ifa$="play"thengoto300
  31. 131 ifa$="fun and games"thengoto300
  32. 132 ifa$="whips and chains"thengoto780
  33. 135 ifa$="headjob"thengoto400
  34. 136 ifa$="oral"thengoto400
  35. 137 ifa$="oral sex"thengoto400
  36. 138 ifa$="suck"thengoto400
  37. 139 ifa$="lick"thengoto400
  38. 140 ifa$="tongue"thengoto400
  39. 141 ifa$="head"thengoto400
  40. 142 ifa$="fish"thengoto400
  41. 145 ifa$="fuck"thengoto500
  42. 146 ifa$="sex"thengoto500
  43. 147 ifa$="bonk"thengoto500
  44. 148 ifa$="root"thengoto500
  45. 149 ifa$="screw"thengoto500
  46. 150 ifa$="bang"thengoto500
  47. 151 ifa$="intercourse"thengoto500
  48. 152 ifa$="make love"thengoto500
  49. 153 ifa$="make out"thengoto500
  50. 154 ifa$="fornicate"thengoto500
  51. 155 ifa$="pussy"thengoto700
  52. 156 ifa$="cunt"thengoto700
  53. 157 ifa$="vagina"thengoto700
  54. 158 ifa$="hole"thengoto700
  55. 159 ifa$="ring"thengoto700
  56. 160 ifa$="gash"thengoto700
  57. 161 ifa$="flaps"thengoto700
  58. 162 ifa$="box"thengoto700
  59. 163 ifa$="crack"thengoto700
  60. 164 ifa$="bush"thengoto700
  61. 165 ifa$="poof"thengoto710
  62. 166 ifa$="poofter"thengoto710
  63. 167 ifa$="faggot"thengoto710
  64. 168 ifa$="fag"thengoto710
  65. 169 ifa$="gay"thengoto710
  66. 170 ifa$="homosexual"thengoto710
  67. 171 ifa$="lesbian"thengoto710
  68. 172 ifa$="anal"thengoto710
  69. 173 ifa$="dick"thengoto720
  70. 174 ifa$="cock"thengoto720
  71. 175 ifa$="penis"thengoto720
  72. 176 ifa$="knob"thengoto720
  73. 177 ifa$="tits"thengoto730
  74. 178 ifa$="tit"thengoto730
  75. 179 ifa$="boobs"thengoto730
  76. 180 ifa$="melons"thengoto730
  77. 181 ifa$="shit"thengoto740
  78. 182 ifa$="money"thengoto745
  79. 183 ifa$="cash"thengoto745
  80. 184 ifa$="payment"thengoto745
  81. 185 ifa$="wage"thengoto745
  82. 186 ifa$="income"thengoto745
  83. 187 ifa$="men"thengoto750
  84. 188 ifa$="boys"thengoto750
  85. 189 ifa$="man"thengoto750
  86. 190 ifa$="guys"thengoto750
  87. 191 ifa$="me"thengoto755
  88. 192 ifa$="ikon visual"thengoto760
  89. 193 k$=left$(a$,8)
  90. 194 ifk$="i want t"thengoto765
  91. 195 ifk$="i want y"thengoto772
  92. 198 print"that sounds nice"
  93. 199 goto 104
  94. 200 rem ------------------------------
  95. 201 letb=50
  96. 202 print"ahhh ! kiss me good and proper !"
  97. 203 print"c'mon boy ! stick that tongue in !!"
  98. 204 forc=1to3000:nextc
  99. 205 print"i'm really getting horny.."
  100. 210 print"i'm all wet between the legs !"
  101. 213 forc=1to3000:nextc
  102. 214 print"now you've kissed me..... take me "
  103. 215 print"all the way ";b$;" !"
  104. 217 forc=1to3000:nextc
  105. 218 goto104
  106. 300 rem ------------------------------
  107. 302 ifb<50thengoto304
  108. 303 goto310
  109. 304 print"hmmmmm, your pretty inexperienced arnt"
  110. 305 print"you little boy ?"
  111. 306 forc=1to3000:nextc
  112. 307 print"i would rather something else to get"
  113. 308 print"me worked up."
  114. 309 forc=1to3000:nextc:goto104
  115. 310 print"your dick is heaps puny !!"
  116. 311 print"but it'll do so flop it out more..."
  117. 312 forc=1to3000:nextc
  118. 314 print"rubbing your cock is fucking boring ..."
  119. 315 forc=1to2000:nextc
  120. 316 print"i want a meal, not a snack."
  121. 317 letb=100
  122. 318 forc=1to2000:nextc
  123. 320 print"i can't be bothered with your little "
  124. 321 print"pet.hurry up and shove a finger or two"
  125. 322 forc=1to3000:nextc
  126. 323 print"up my hole ....."
  127. 324 forc=1to2000:nextc
  128. 325 print"not too hard "
  129. 326 forc=1to2000:nextc
  130. 327 print"ahhhh that feels good !"
  131. 328 forc=1to2000:nextc
  132. 329 print"ouch ! it's too far up"
  133. 330 forc=1to2000:nextc
  134. 331 print"that's better, now wrigle it"
  135. 332 print"around "
  136. 333 forc=1to2000:nextc
  137. 334 print"now gently slide it up and down."
  138. 335 forc=1to2000:nextc
  139. 336 print"hey ! you did real well !! "
  140. 337 goto 104
  141. 400 rem ------------------------------
  142. 410 ifb<100thengoto412
  143. 411 goto450
  144. 412 print"well, i always love giving head, but"
  145. 413 print"at the moment i'm not in the mood.."
  146. 414 forc=1to3000:nextc
  147. 415 goto 104
  148. 450 letb=150
  149. 451 print"i'm sorry but your dick is too puny to"
  150. 452 print"suck so i'll teach you how to give head"
  151. 453 forc=1to3000:nextc
  152. 454 print"have you ever licked a girl before ?"
  153. 455 getc$:ifc$=""then455
  154. 456 ifc$="y"thengoto465
  155. 457 forc=1to3000:nextc
  156. 458 print"i see you're pretty nervous !"
  157. 459 forc=1to3000:nextc
  158. 465 print"o.k. part my flaps and poke out your"
  159. 466 print"tongue."
  160. 467 forc=1to3000:nextc
  161. 468 print"the flaps are called 'labia minor' and"
  162. 469 print"'labia major'.just below the 'hymen' is"
  163. 470 forc=1to2000:nextc
  164. 471 print"the 'clitoris'.i like it there"
  165. 472 forc=1to2000:nextc
  166. 473 print"you can use these terms to impress a"
  167. 474 print"girl when giving her head."
  168. 475 forc=1to3000:nextc
  169. 476 print"because i'm a nice clean girl, i smell"
  170. 477 print"like fresh fish. some ugly bush pigs "
  171. 478 forc=1to3000:nextc
  172. 479 print"stink like shit so give em a miss !"
  173. 480 forc=1to2000:nextc
  174. 481 print"thanks for the good head ! i'm full on"
  175. 482 print"worked up now !"
  176. 483 goto 104
  177. 500 rem ------------------------------
  178. 510 ifb<150thengoto512
  179. 511 goto530
  180. 512 print"hey c'mon pal ! you're pathetic!"
  181. 513 print"gimme a little something else first."
  182. 514 forc=1to3000:nextc
  183. 515 goto 103
  184. 530 print"i'm hangen for a bangen !"
  185. 531 print"i wanna fuck your brains out !"
  186. 534 forc=1to3000:nextc
  187. 535 print"take off all my clothes and"
  188. 536 print"gently spread my legs !!!"
  189. 537 forc=1to3000:nextc
  190. 538 print"what position would you like me to"
  191. 539 print"lay in "
  192. 540 forc=1to3000:nextc
  193. 541 inputa$
  194. 542 print a$;" is my favorite !"
  195. 543 print" slip her in good and fast !"
  196. 544 forc=1to3000:nextc
  197. 545 print"push it ! hump harder !!"
  198. 546 forc=1to2000:nextc
  199. 547 print"whip me !  whip me !"
  200. 548 forc=1to2000:nextc
  201. 549 print"yes !! yes ! it's wonderful !"
  202. 550 forc=1to2000:nextc
  203. 551 print"i'm cumming ! i'm cumming !"
  204. 552 forc=1to4000:nextc
  205. 553 print"congratulations. now you can screw"
  206. 554 print"a girl in style !! "
  207. 555 forc=1to3000:nextc:print
  208. 556 print"            [202][195][201] the end [213][195][203]"
  209. 560 clr:forc=0to2000:next:run
  210. 599 rem ------------------------------
  211. 600 rem -----------------------------
  212. 610 ifb>5andb<50thengoto650
  213. 612 ifb>55andb<100thengoto660
  214. 614 ifb>105andb<150thengoto670
  215. 616 ifb>155thengoto680
  216. 617 goto 110
  217. 650 print"a kiss would be nice.":letb=0
  218. 651 goto104
  219. 660 print"can i feel your big prick ?"
  220. 661 getc$:ifc$=""then661
  221. 662 ifc$="n"thenletb=50:goto104
  222. 663 goto300
  223. 670 print"i'd really like a headjob.":letb=100
  224. 671 forc=1to2000:nextc
  225. 672 goto104
  226. 680 print"i'm hangen for a bangen !!":letb=150
  227. 681 goto 104
  228. 700 print"i've got a wet hot ";a$
  229. 702 forc=1to2000:nextc
  230. 703 goto 103
  231. 710 print"ikon visual say faggots should be shot"
  232. 711 forc=1to2000:nextc
  233. 712 goto103
  234. 720 print"i'm hoping to suck your ";a$
  235. 721 print"a little later on."
  236. 722 forc=1to2000:nextc
  237. 723 goto 103
  238. 724 goto300
  239. 730 print"my ";a$;" are soft & succulent."
  240. 731 forc=1to2000:nextc
  241. 732 goto103
  242. 740 print"you look like shit !"
  243. 741 forc=1to2000:nextc
  244. 742 goto 103
  245. 745 print"ikon visual say prostitutes spread aids"
  246. 746 forc=1to2000:nextc
  247. 747 goto 103
  248. 750 print"i want one just like you !"
  249. 751 forc=1to2000:nextc
  250. 752 goto 103
  251. 755 print"your fucken ugly !!"
  252. 756 forc=1to2000:nextc
  253. 757 goto 103
  254. 760 print"those guys turn me on !!"
  255. 761 forc=1to2000:nextc
  256. 762 goto 103
  257. 765 print"i would like you to do that!"
  258. 770 for c=1to2000:nextc
  259. 771 goto 103
  260. 772 print"i would love to do that !"
  261. 773 forc=1to2000:nextc
  262. 779 goto 103
  263. 780 print"whip my butt and whip it good!"
  264. 781 forc=1to2000:next:goto103
  265. 50000 sys 57812 fi$,8,0:poke780,0:poke782,(int(ad/256))
  266. 50010 poke781,(ad-peek(782)*256):sys65493:return
  267. 60000 open15,8,15,"s:forests":close15:save"forests",8,1
  268.